PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Updates⁄New/TicklerMaster™ File/background_4223.txt

Text File | 1988-06-01 | 5.6 KB | 294 lines

-- background: 4223 from stack: in
-- bmap block id: 4651
-- flags: 4000
-- background id: 0
-- name: Reminder
----- HyperTalk script -----
on newCard --date stamp
  put the long date && the time into field "Created"
end newCard























-- part 1 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=139 top=70 right=96 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 5
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Follow-Up-Date
----- HyperTalk script -----
on closeField
  convert field id 1 to long date
end closeField



-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=123 top=105 right=123 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Abstract


-- part 6 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=28 top=151 right=280 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Actions


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=173 top=286 right=304 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Created


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=233 top=304 right=324 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Completed


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=308 right=333 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card of this background
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=468 top=307 right=333 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of this background
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=466 top=32 right=61 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=394 top=251 right=296 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go To—To Do List
----- HyperTalk script -----
on mouseUp
  go to first card of this stack
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=339 top=32 right=62 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Address
----- HyperTalk script -----
on mouseUp
  get the selection
  push card
  visual effect zoom open
  go to stack "Address"
  find it
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=402 top=31 right=63 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect iris open
  push card
  go to stack "Phone"
  dial it
  pop card
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=284 top=23 right=61 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  sort dateTime by field id 1
end mouseUp





-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=376 top=130 right=150 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Carry Over
----- HyperTalk script -----
on mouseUp  -- adds one day to date field

  get bkgnd field id 1
  convert it to seconds
  add (24*60*60) to it
  convert it to long date
  put it into field id 1  --"Follow-Up-Date"
  put it into temp1
  convert temp1 to short date
  put empty into field id 41  --   undo ‚àö in upDate Monthly
  put empty into field id 40  --   undo ‚àö in upDate Weekly
  ask " Carry Over to which Day" with temp1
  if it is temp1 then
    exit mouseUp
  else
    if it is not temp1 then
      convert it to long date
      put it into field id 1  --"follow-Up-Date"
      put empty into field id 41  --   undo ‚àö in upDate Monthly
      put empty into field id 40  --   undo ‚àö in upDate Weekly
    end if
  end if
end mouseUp